home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy: Best of 1985
/
Ahoy_Best_of_1985_1986_Double_L.d64
/
menu c-64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
66 lines
5 poke53280,6:poke53265,peek(53265)and239
10 fori=1to16:reada$:next:x=60:y=57:cl=1:sc=53281
20 fori=12288to12799:readsp:pokei,sp:next
25 restore:l$=""
30 m=.:v=53248:fori=2040to2047:m=m+1:pokei,191+m:next
40 fori=39to46:cl=cl+1:pokev+i,cl:next
50 fori=0to6step2:x=x+20:pokev+i,x:next:fori=1to13step2:pokev+i,y:next
60 pokev+8,185:pokev+10,205:pokev+12,240
70 pokev+16,128:pokev+14,5:pokev+15,y
80 poke53265,peek(53265)or16
100 print"[147]":poke sc,1:pokev+21,255:ta=10
145 printleft$(l$,5)tab(7)"[156] ** d i r e c t o r y ** "
150 a=a+1:b=b+1:readpr$:ifa>9thenta=9
160 printleft$(l$,b+8)tab(ta)""a"-"pr$
165 ifb=8then175
170 goto150
175 ifa>=16thenrestore:a=0
190 printleft$(l$,23)tab(7)"[156](c) ion international inc.":poke198,0:an$=""
200 printleft$(l$,20)tab(8)" press f1 or choose no.[146]";
210 gettm$:iftm$=chr$(13)andan$=""then 210
211 iftm$=chr$(20)thenprint"[157] ":goto190
215 iftm$="[133]"thengosub300:ta=10:b=.:goto150
218 iftm$=chr$(13)andan$<>" "then 225
220 an$=an$+tm$:printan$;"[144][146]_";
221 t=peek(v+39):pokev+39,peek(v+40):pokev+40,peek(v+41):pokev+41,peek(v+42)
222 pokev+42,peek(v+43):pokev+43,peek(v+44):pokev+44,peek(v+45)
223 pokev+45,peek(v+46):pokev+46,t
224 printleft$(l$,20)tab(8)"[150] press f1 or choose no.[146]";:ford=1to90:next:goto200
225 an=val(an$):ifan<1oran>16thenprint"[157] ":goto190
226 an=val(an$):restore:for ch=1 to an:read pr$:next ch
230 pokev+21,0:print "[147]":poke 53280,0:poke 53281,0
235 printleft$(l$,15)tab(10)"[159]loading "pr$"[144]"
240 print "load";chr$(34);pr$;chr$(34);",8"
250 print "run":print "[145][145][145][145][145][145][145][145][145]"
260 poke 631,13:poke 632,13:poke 198,2:end
300 forli=7to17
310 printleft$(l$,li)" ":next:return
500 data music tutor j'85,midprint j'85,fontasia f'85,telelink f'85
510 data futurewar f'85,salmon run m'85,auto line# m'85,home budget m'85
520 data tile time may'85,screen dump a'85,ahoy dock s'85,file lock s'85
530 data lghtng load n'85,dir manip. d'85,gameloader d'85,jewel quest d'85
600 data 0,0,0,0,0,0,7,254,0,7,255,128,7,255,192,7,135,224,7,131,224,7,131
610 data 224,7,135,192,7,255,0,7,255,0,7,135,192,7,131,224,7,129,240,7
620 data 129,240,7,131,240,7,255,224,7,255,192,7,255,0,0,0,0,0,0,0,0
630 data 0,0,0,0,0,0,7,255,224,7,255,240,7,255,240,7,255,224,7,128,0,7,128
640 data 0,7,128,0,7,248,0,7,252,0,7,248,0,7,128,0,7,128,0,7,128,0,7,255
650 data 224,7,255,240,7,255,240,7,255,224,0,0,0,0,0,0,0
660 data 0,0,0,0,0,0,0,254,0,3,255,128,7,255,224,15,227,240,15,193,248,15,192
670 data 0,7,240,0,1,254,0,0,127,128,0,31,224,0,7,240,0,3,248,0,1,248,7
680 data 227,248,3,255,240,0,255,224,0,63,128,0,0,0,0,0,0,0
690 data 0,0,0,0,0,0,7,255,240,7,255,240,7,255,240,7,255,240,6,62,48,4,62
700 data 16,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62
710 data 0,0,62,0,0,62,0,0,0,0,0,0,0,0
720 data 0,0,0,0,0,0,0,62,0,0,255,128,1,255,192,3,255,224,7,247,240,7,227
730 data 240,15,227,248,15,193,248,15,193,248,15,193,248,15,193,248,7
740 data 227,240,7,247,240,3,255,224,1,255,192,0,255,128,0,62,0,0,0,0,0,0,0,0
750 data 0,0,0,0,0,0,31,255,240,15,255,248,7,255,248,7,255,240,7,128,0,7
760 data 128,0,7,128,0,7,128,0,7,252,0,7,254,0,7,252,0,7,128,0,7,128,0,7,128
770 data 0,7,128,0,15,128,0,31,128,0,0,0,0,0,0,0,0
780 data112,0,0,112,0,0,112,254,0,231,255,192,207,255,224,31,131,240,31,1,240
790 data31,7,240,15,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31
800 data 1,240,31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0,0
810 data 0,0,0,0,0,0,15,255,240,15,255,240,15,255,240,15,255,240,15,128,0
820 data 15,128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248
830 data 15,128,248,15,193,248,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0,0